home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / ladybug2.arc / HILBERT.BUG < prev    next >
Text File  |  1983-09-25  |  384b  |  4 lines
  1. define "h [[ :size :lev :par][if :lev = 0 then stop][lt :par * 90][h  :size  :lev - 1  0 - :par][fd :size][rt :par * 90][h :size  :lev - 1  :par][fd :size][h  :size  :lev - 1  :par][rt :par * 90][fd :size][h :size :lev - 1  0 - :par][lt :par * 90]]
  2. define "hilbert [[ :size :level][h :size :level 1]]
  3. :par][rt :par * 90][fd :size][h :size :lev - 1  0 - :par][lt :par * 90]]
  4. define